Gapminder data
library(gapminder)
data(gapminder)
head(gapminder)
Animation with ggplotly
library("ggplot2")
library("plotly")
Registered S3 method overwritten by 'data.table':
method from
print.data.table
Attaching package: ‘plotly’
The following object is masked from ‘package:ggplot2’:
last_plot
The following object is masked from ‘package:stats’:
filter
The following object is masked from ‘package:graphics’:
layout
gg <- ggplot(gapminder, aes(gdpPercap, lifeExp, color=continent)) +
geom_point(aes( size=pop,
frame=year,
ids=country,
alpha=0.3)) +
scale_x_log10(labels=scales::dollar_format())
Warning in geom_point(aes(size = pop, frame = year, ids = country, alpha = 0.3)) :
Ignoring unknown aesthetics: frame and ids
ggplotly(gg)
LS0tCnRpdGxlOiAiQXNzaWdubWVudDogUiBNYXJrZG93biBQcmVzZW50YXRpb24gJiBQbG90bHkiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCiMgR2FwbWluZGVyIGRhdGEKCmBgYHtyfQpsaWJyYXJ5KGdhcG1pbmRlcikKCmRhdGEoZ2FwbWluZGVyKQpoZWFkKGdhcG1pbmRlcikKYGBgCgojIEFuaW1hdGlvbiB3aXRoIGdncGxvdGx5CgpgYGB7cn0KbGlicmFyeSgiZ2dwbG90MiIpCmxpYnJhcnkoInBsb3RseSIpCgpnZyA8LSBnZ3Bsb3QoZ2FwbWluZGVyLCBhZXMoZ2RwUGVyY2FwLCBsaWZlRXhwLCBjb2xvcj1jb250aW5lbnQpKSArCiAgICBnZW9tX3BvaW50KGFlcyggc2l6ZT1wb3AsCiAgICAgICAgICAgICAgICAgICAgZnJhbWU9eWVhciwKICAgICAgICAgICAgICAgICAgICBpZHM9Y291bnRyeSwKICAgICAgICAgICAgICAgICAgICBhbHBoYT0wLjMpKSArIAogICAgc2NhbGVfeF9sb2cxMChsYWJlbHM9c2NhbGVzOjpkb2xsYXJfZm9ybWF0KCkpCgpnZ3Bsb3RseShnZykKYGBg